home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / Shells / bsh.lzh / bsh / uniq < prev    next >
Encoding:
Text File  |  1993-02-14  |  529 b   |  12 lines
  1. local l m IFS
  2. IFS="\n"
  3. while 1;read l;if eof(0);break;elseif l!=m;echo $l;m=l;endif;endwhile
  4. # Uniq - a filter to compress consecutive identical lines to a single line.
  5. # This script version has no args, and only reads standard input.  This
  6. # should be easy to modify -- see the 'head' filter.
  7. #
  8. # Uniq is presented as is; no warrantee is either expressed or implied
  9. # as to it's suitability to any purpose whatsoever.  You assume all the
  10. # risk for all damage, even if caused by a defect in the software,
  11. # no matter how awful.
  12.